﻿Public Class clsLhPgd
    Public Function getListBySysId(sys_id As String) As DataTable
        Dim szSql As String = ""
        szSql &= "SELECT * FROM sf.b_pgd_lh_details "
        szSql &= " WHERE 1 = 1 "
        szSql &= " and factory_id = ? and sys_id = ?"
        Return DBacs.ExecuteSql(szSql, -1, g_factory_id, sys_id)
    End Function
End Class
